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= PROGRAM DESCRIPTION. 


SIMULTANEOUS LINEAR EQUATIONS 





This program solves M sets of N by N linear equations that have identical 
coefficients using the Crout algorithm with row interchange. If Mor N is 
greater than 10, the dimensions of the subscripted variable in line 70 will 
have to be changed. The user must enter the coefficients and the constants 
of the equations as prompted. 


If the system of equations has no solution (is linearly dependent) the pro- 
gram will so indicate. 


A theoretical representation of a system of linear equations is: 


aaa Paha Piigh 3, tes Pg Ps 


A51X1 + AgoXa + AggX3 tee + Aayky = By; 


AyiX1 + An2X2 + An3X3 + --- + AnnXn = By 


Where N = number of coefficients 





M = Number of sets 
Ai = coefficient of ith row and jth variable 
Bi, = constant of ith row (equation) and jth set 
jd eM 


There are M sets of answers : 
SOC. Sag hg Kaa wise Ny 
DOU <2 Xie hoe Mas, ches. Ky 


Set M = Xi» Xo» X25 eer 9g Xn 





c 


_ CU ISAMPLE PROBLEM <=. 


solve the following system of linear equations: 
MG. ko he = Le Ke ke eS = 1G 
2X1 + 3X2 -6X3 = -13 2xq + 3x2 -6x3 = 50 
-X1 + 4X2 + 7x3 = 43° -xy + 4X2 + 7x3 = 26 
M=2 
N = 3 


po LOL TION | 














ee ee 
per equation CS saptiseeges_—sosenctamspubeeuce——4 
Pf tawation vn neg fer 
pf equation ai constant an7 | 2 CRIN) 
| equation #1 constant 27 | 16 (RTH 


TEP 


2 LAT 
a ee 
equation a2 tase | ocr 
Tf guation #2 constant a2 | 13 cern 
ee eee see 


Equation #2 constant #2? 





1p) 
OO N [eR 
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Po CUJSOLUTION(L 


& 














equation eg ever a 
equation axes? rg 
F_Iequation #3 constant 127 43 [RIN] 
equation #3 constant v2? 26 ta] 
a 
an 
[BACK] to view previous ine... . | RTN1/T BACK 


oo I rico 


* 
= 
“~~ 


= 





rRTN/ [BACK 
eto retina 
E (RTH 
Loseeeneee sere oe i! END OF PROGR 


#1 
Answer set #2 [RTN ] 
rRTW 
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___—EMd J USER INSTRUCTIONS. 


INSTRUCTIONS INPUT 
Enter number of sets of equa- ae 
fon MCRD 
nter number of coefficients Po 
per equation (also the number Pg 
f equations per set) __[Nunber of coefficients ——_|N_[RTW] 

Enter coefficients for each Ai1 LRIN] 
equation (Ay Ara & Ay (RIN 


11 S12 913 ++ Ady 
Aon 


Ao Ago Agy <e Fquation #1 X#3? Ai3 LRTN] 


op) 
+ 
ma rm 


FO 
(T] 


fr Az Axa «Aa bo CTH 
one at a time along with the Ayo [RIN] 
onstants after each equation Bym [RTN] 
If the matrix is singular: LRTN] 
To run again, enter 'R', else R or E [RIN] 
enter ‘E' to end program. END OF PROGRAM 
isplay M answer sets [RTN | 
N answers per set) LRTN ] 
Use [RTN] to view next mea. 
[BACK] to view previous sabe  ... . | 
Rm 
[RTN] 
eTHI/8ACk 
rath] 


Answer set #M RTN 


Y ien 


rr 
AO 
--| 
= 
LJ 
— 
| 
CO 
I> 
) 
~~ 
a | 


| 
~J 
— 
= 
LJ 
“~ 
| | 
Ww 
> 
o> 
~S 
Luo 


rm 
Ww 
—_ 
= 
Lay 
— 
71 
Cw 
I 
7) 
~ 
a | 





~ 
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g- USER INSTRUCTIONSL____ 





op) 


INSTRUCTIONS DISPLAY INPUT 
nner re 
nnn BWA 
nnn 288K 


| | program options __‘| un again, View again, or End2R | VsE or LRTHI 









If 'E then stop. 





END OF PROGRAM 














| NAME DESCRIPTION | NAME DESCRIPTION 
ara Array for coefficients io. 3 Used for comparison 
A( , ) of equations X and storage 
Accumulates sums of 
Array for constants of 
B( , ) equations. Later used products of elements 
for answer sets. Looping and indexine 
| Temporary storage in row Loop parameter used in 
T interchange process M1 row interchange 
f element in equation O$ User interaction 
Bes Number of sets 
Number of coefficients ; 
N (also the number of of equations 





____INOTES AND REFERENCESL_ 


References: SIMULTANEOUS LINEAR EQUATIONS, HP-85 Math Solutions Book, 
Hewlett-Packard, 1981. 


Fuller, Leonard E., BASIC MATRIX THEORY, Prentiss-Hall, 
1962, pp. 156-164. 





T —SSSESCUIPROGRAM LISTING 


w 40 ! CROUT ~- Solves 
20 ! simultaneous linear 
30 ! equations using Crout 
40! algorithm. 
50 ! Revision 14/04/82. 
60 DIM Q414) 
70 SHORT AC410,40) ,B8¢10,109,T,5 
80 INTEGER 1,J,K,M,N,Q,M4 
90 DEF FNGS ~Wait for RTN or BACK key 
£00 Z=NUMCKEYS) @ IF Z#43 AND ZS THEN 
400 ELSE FNQ$=CHRSC2Z) 
420 END DEF 
$20 DISP ’ SIMULTANEOUS LINEAR EQUATION 
S’ @ WAIT 2 
440 INPUT ‘Number of sets?’ 3M 
440 IF M<=0 THEN 130 
4550 INPUT ’Number of coefficients?’ ;N 
460 IF N¢=0 THEN 150 
470 FOR T=4 TO N 
186 FOR J=1 TO ON 
490 DISP ‘’Equationt#’;1;% X#*%;J; -~Enter coefficients for each 
equation 
200 INPUT 7?°; ACT, 3) 
Zi NEXT J 


oy eed FOR K=1 TO M 
230 DISP ‘Equation#’;1;% constant#’ Kk; -~Enter constants for each 
equation 
240 INPUT °?°,;8¢1,K) 
250 NEXT K 
260 NEXT I 
27 FOR IT=i1 TO N 
aod K=~4 
2?0 FOR J=i TO f 
S00 IF ABSCACT ,1)9¢=xX THEN 330 ~Check for Linear dependence 
3410 GieJ 
S20 X=ARSCACT,1)) 
330 NEXT J 
440 IF X20 THEN 4390 “Check for matrix singularity 
350 DISP ‘Matrix of coefficients singul 
ar’ @ GOSUB $30 
360 DISP CHRS(210);’un again, or %;,CHRS 


F C4197); 

470 INPUT ‘nd?’ ,/R’%; QS @ QS=UPRCSCOQSTA 

5412 

: 290 ON POS(’RE’ ,Q$)4+4 GOTO 360,130,719 

390 IF T=@ THEN 500 ~Kegin row interchange process 
; 400 FOR J=1 TO N 

: 440 TACT ,S) 


4290 ACL, J)#ACQ,I) 
430 ACG, J =T 


we 440 NEXT J 
450 FOR J=4 TO M 
460 T=BRCL,S) 
470 BCL, J)=B(@,7) 
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_ Cd J PROGRAM LISTINGL 


43g 
490 
“00 
D> 40 
20 
$30 
“40 
550 
560 
70 
Oo 
590 
&00 
6410 
& 20 
630 
&4 0) 
& "30 
560 
&70 
680 
690 
700 
710 
72Q 
7590 
74Q 
750 
7 60 
779 
730 
2 OU 
80.0 
SAG 
$720 
345 0) 
34 (j 
"5 0 
B60 
870 
89 Q 
3 () 
700 
246 
920 
930 
? 4 () 


956 


H(Q,J)=T 

NEXT J 

FOR J=4 TO N 

IF I<3 THEN $40 
Mi=J~4 

GOTO SSo 

Mi=zi~4 

S=0 

FOR K=4 TO M4 
S=S+Ac1l,KKACK,I) 
NEXT K 

ACI, J)=ACI,7) +8 
IF L>=J THEN 620 
ACL, J)=-ACI,J)/ACT,T) 
NEXT J 

NEXT I 

FOR J=4 TO M 

FOR I=4 TON 

S=Q 

FOR K=4 TO I~4 
S=S+Acl,K) KECK J) 


NEXT K 

RCL, J)=-CHC1,J)4+5)/0C1,1) 
NEXT I 

FOR I=N TO 4 STEP -4 

S=0 


FOR K=I+4 TO N 

S=StACI, KKECK , J) 

NEXT K 

RCT, J=-BC1L, J)+S 

NEXT I 

NEXT J 

| OUTPUT. 

FOR J=i TO M 

DISP ‘Answer set #°;J5 @ GOSUR 930 
FOR =i TO N 

DISP USING ‘mdddd.dd’ ; BCI,7) 
QS=FNQS @ TF NUMCQ$I=8 THEN T=MAX¢4 
»f-1)> @ GOTO 840 

NEXT I 

NEXT J 

DISP CHR#C210);’un again, ”%;CHRSCeL 
4);,’i@w again, or 7%, CHRSCI9?7) , 
INPUT ‘nd?’ ,7R%; Q& @ QS=UPRCOSCOST 4 
si 

ON POSC*RVE’ ,Q4)+41 GOTO $80,430,860 
> 740 

DISPF ’ END GF PROGRAM’ 

STOP 

IF NUMCKEY$ #43 THEN 940 


RETURN 


~Display answers 


e 





“Continuation optians 


“Wait far 
pressed 


| 
| 
the RIN key to be @ | 
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e— PROGRAM DESCRIPTION(L_ 


QUADRATIC EQUATION 


This program analyzes a quadratic equation of the form Ax2 + Bxy + Cy? + Dx + 
Ey + F = @. The user must supply the coefficients A, B, C, D, E, F, in that 

order. If a coefficient is equal to zero it must be entered as zero and not 

Skipped. 


The program determines lines, single points, circles, ellipses, hyperbolas, 
parabolas, parallel lines, and equations for which there are no real solutions. 
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_ CU JSAM PLE PROBLEM <== 





bs 3 l6y* -25 = 9 
2) x BAY +O SG 


po CU SSOLUTION 


cc 


Luan arze equation 
Enter coefficients Enter A,B,C,D,E,F? 


1,0,16,0,0; 
-25, [RIN] 


Oe 

seta) wo dist te femer = | 
meso 
63 


TEP INSTRUCTIONS DISPLAY INPUT 


1 
ce 


eC" ro 4 cm 7 TW 
~ “AI ~~ AJ 
— 4 -—- — 
— = = i 
Led Lt LI Ly 
~ — — _ 
rT rc m1 m1 
CO oO Ww w 
> I> > i> 
Cc) Cc ©) a) 
“N “~ YN “NN 
Ld LI Lj | oe 


oo 
ra 1T aie) 
Dm | [DH |X 
414 (4 |4 
— jm jm |i 
LHI ike 6 6Jl ey CJL 
PSP 
a Tr IR) ae toe 
wm (WoO };woO ;W 
> fre Se [Se 
TM 17m |OD |OXO 
~~ KK [Tn [LA 
Lmeet [LO Jrwiwdg fr 
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LL CUISOLUTIONC 
~ 










pag 
| 6 end Run again? Y 
eto or prosray | 


~Y 
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_ ECU JUSERINSTRUCTIONS|L 









~Y) 


TEP INSTRUCTIONS DISPLAY INPUT 
Enter coefficients of Ax? 4+ Enter A,B,C,D,E,F? A,B,C,0.E,F 
sy totoxtey-o | CT 
compute statistics, and dis- 
play. You may use the [RTN] o 

BACK | key to scroll tnroug 
the statistics for circle, 








PO 


ellipse, hyperbola or 
parabola. 


If Y then step 1 else END OF PROGRAM laa 





rd Ud] VARIABLE NAMES(L 





| NAME | DESCRIPTION | NAME | DESCRIPTION 
- n,B,C,D,E,F Coefficients oO Used to determine 
A,B,C,D,E,F | quadratic equation Bl minor axes 
Coordinates of 
XY center of circle Cl Computed constant 
Part of simple 
U,V Used to determine foci Q,S quadratic formula 
G M,N 
Al 











Used to form 
Measure of angle center of parabola 





a 





. 





13 


___LCUdS PROGRAM LISTING | 


o 10 ! GUAD - Analyzes a 
“0 ! quadratic equation. 
40 ! Revision 44/04/82. 
60 DIM G4L31 ,W4l2] 
70 REAL O,X,Y,F41,6,U,¥,K,L,A4,84,C4,M, 
N,S,K4,04 
30 SHORT A,B,C,D,E,F 


0 DEF FNWS -Wait for RTN or BACK key 
£00 W=NUMCKEY$) @ IF Whi AND W#8 THEN 
4.00 


1490 FNWS=CHRSE CW) 

120 END DEF 

130 DEF FNDCX) = IP CXk4004.5)/406 “Round number to two decimal 
places 

140 IMAGE k,mdd.dd,k,mdd.dd,k,mdd.dd 


150 DISP “ QUADRATIC EQUATIGN’ @ 
WAIT 2 


160 ON ERROR GOTO 1706 
£70 INPUT ‘Enter A,K,C,D,E,F2’;4,B8,0,D, 
EF 
i830 OFF ERROR 
170 IF AO OR BO OR CHO THEN 256 
200 TF DAO OR EO THEN 220 
e#ig GOTO 170 
mm 220 3 ~The equation is a straight 
. Line 
eo0 DISP USING 140 ; “Line ’,D,’x + ae 
>’y = 7 -F @ COSUB 41990 
240 GOTO 41°50 
259 GW=B*2-4x AKC 
260 IF Q=0 THEN 4470 
ev) ! 
e260 X= CEXKCKD-RxXE) /@ 
a?Q YC 2xkakKE-BXD)/Q 
S00 FA=-CDKX/EtEXY/2+F ) 
410 G=0 
$20 IF K=0 THEN 340 
330 G=PT/4 
S40 IF A=C THEN 360 
$50 G=.SKATNCB/CA-C)) 
460 U=COS(G) 
470 V=SINCG) 
430 K=AKU* 2+RRUKVEC KYA 2 
S970 LeAKYU*2-~BRKUKVEC KU? 
400 TF K>O THEN 450 
Aig K=-K 
420 jlseL 
ASO Fis-F 4 
A4Q } 
Wp 280 IF @>0 THEN i000 


~ 


460 TF F4>0 THEN S20 
470 TF F4i=0 THEN SOO 
42g! ~The equation has no real 
Solution 
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CLUJ PROGRAM LISTING Prat 


490 


S00 


ee 
530 
540 


960 


370 
580 
90 
606 
6410 
620 
st 
6&4 
iy Q 
&£60 


& 70 
6S 0 
&90 
700 
7AQ 


72 Q 


730 
74D 
70 
760 


770 
780 


7 9G 
0 0 
4G 
20 
390 
3 «4 () 
&'5 0 
ho 0 
€ 7 
SEOo 


BY 0 
700 


DISP ’No real solution.’ @ GOSUEB 49 
90 ®@ GOTO 1950 


DISP “Single point at:’;FND(X);°,°; 
FNDCY) @ GOSUB 1990 @ GOTO 1950 
TF KL THEN 636 


DISP ‘’Circle with eccentricity 0.° 
® GOSUE 1999 

DISP ‘Center = (€7;FND(X);4,°;FNDCY) 
, fy? 

> 

WE=FNWS @ IF NUMCWH)I=8 THEN S56 
DISF ‘Radius = ‘’;FND(SOQRCF4G/K)) 
WS=FNWS @ ITF NUMCWH$)=8 THEN S40 
DISP ‘Area = ’ ;FNDCPIXF4/K) 
WE=FNWS @ IF NUMCWH)=8 THEN 580 
GOTO 19°50 

IF KCL THEN 679 

G=G+PI/2 

GOTO 360 


AL=SOR CFA /ABSCK)) 
RL=SQR CFS /ABS CL) 
Ci=SOQR CAL*2-Bi%2) 
| 


DISP “Ellipse with eccentricity’ ;FN 
DCCA/AL) @ GOSUB 1990 

DISP ‘Center = (7; FND(OX);/%,°;FNDCY) 
at he 

2 

WE=F NWS @ LF NUMCWH)=8 THEN 740 
DISP ‘Angle =’ ;FND(GK4I80/PT) 
Wh=FNWS @ IF NUM¢CWH)=8 THEN 720 
DISP ‘Focus = (7% ;FNDCX+CAKU) 5° ,°5FN 
DOX#tC 4K) 4%) 7 

WE=FNWS @ TF NUMCWH)=8 THEN 740 
DISP ‘Focus = (7 ;FNDCX-C4xU) 37 ,°5FN 
DCY-CAKV) 57) 7 

WE=FNWS @ ITF NUMCWh)=8 THEN 7506 
DISP “Sum of radii =’ ;,;FNDC2*AL) 
WE=FNWE @ IF NUMCW$)=8 THEN 780 
DISF ‘Major axis =’ ;FNDC2KAL) 
WH=FNWS @& ITF NUMCWH)=8 THEN 800 
DISP ‘Minor axis =’ ;FND(2*B4) 
WE=FNWS @& IF NUMCW$)=8 THEN 820 
DISP “Focal chord =% ,FND(2*R1*%2/441) 
Wh=F NW @ ITF NUMCWH)=S THEN 840 
DISF USING 140 ; ‘Major ‘,-V,’x + 7 
»>U,%y = % ,-VEX+UKY 

WS=FNWS @ TF NUMCWEO=8 THEN 840 
DISP USING 4140 ; ‘Minor ’,U,’x + 7%, 
Vi7y = % UKX+VUKY 





~The equation refers to a 
gingle point 


~The equation represents a 
circle 


~The equaticn represents an 


ellipse & 


a Bn 
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_CUdJ PROGRAM LISTING. 


w 


w 





oe 


7410 
520 


750 
F490 


750 
560 
o7 G 
Fa G 
¥?0 
L000 
1040 
1020 
4030 
L040 
4050 
1060 


1070 


1080 
4.070 


1400 
1440 
4420 


L436 
1140 
Lio 
L169 
4.170 


1480 


14979 
1200 
1240 
de U 


4.22.4 0 
240 


125% 
£250 
i2ig 
122030 
4.2290 
4300 
4,416 
4420 


WS=FNWS @ 1F NUM(WS)=8 THEN 880 
DISF USING 440 ; ‘Dir ’,U,’x + 
‘y = / UKX+UKY+A4*2/C4 

WE=FNWS @ IF NUM(WH)=8 THEN 900 
DISF USING 440 ; ‘Dir ’,U,’x + 
‘yom 7 SUKX+UKY-AL*2/C4 

WE=FNWS @ IF NUMCW$)=8 THEN 920 
DISP ‘Area =’ ;FND(PIKAG*ES) 
WE=FNWS & IF NUM(CWH)=8 THEN 940 
GOTO 4950 

{ 


é 
»V, 


/ 
Vv; 


IF FidG THEN 1420 
TF Fis0 THEN 41040 
G=G+PT/e2 

GOTO 360 

Bi=SQR CARS (KD) 
AL=SQR CARS CLD) 


DISF USING 440 ; ‘’Linet ’,B4AxU-G@4xV 
,/X + 9 BAKV-AGKU, “y = %, CBAKUFALKY 
y*X+ CHA KV-ALKUD KY 

GOSUE 41990 

DISP USING 440 ; ‘’LineZ ’,BixU-A4txV 
SX + 7 BAXVEALKU, yp = 7, CRAKU-ALKY 
YRK+ CHAKV+ALKUI KY 

WEEE NWS @ IF NUMCW4)=8 THEN 40°70 
GOTO 41950 

I 


AL=SQR CF I/SABS CK) )D 
BLi=SGR CFA /ABS CL) ) 
CIi=RSGRCAL*2+R4%2) 


DISP “Hyperbola: eccentricity’ , FND¢ 
C4i/Ai>0 @ GOSUE 1990 

DISP ‘Center= (7; FRD(X);7,7 5; FNDCY); 
oN 

WE=FNWS @ TF NUMCWH)=8 THEN 14170 


DISF “Angle = ’;FND(GKiSO/PT) 
WE=FNWS © TF NUMNCWT)=8 THEN 4486 
DISP ‘Focus = €7;FNDCX+C4ikY) 5° ,°5FN 


DCV+C 4a 5 707 
WS=FNWS @ TF 

DISF ’Focus = 
DCY-O44KV) 5%) 7 
WE=FNWS © TF NUMCWH>=S THEN 4220 


NUM(WEI=8 THEN 4200 
(7 ;FNDCX-COkUD 57,75 FN 


DISF ‘Radii difference =’ ;FNDCExKAL) 
WH=F NWS ©€ TF NUMCWE)=8 THEN 1240 
DISF “Major axis =’ ;FND(2*AL) 

WE=F NUS © IF NUMCWH=8 THEN 4260 
DISPF “Minor axis =’ ;FNDC2*E1) 


WS=FNWS & IF NUM(WEO=S THEN 412980 
DISFP ‘’Focal chord =’ ,FNDCOxXRi*2/A41) 





~“Directix lines 


~The equation represents two 


Lines 


~The equation represents a 
hyperbola 
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PROGRAM LISTING... 


133 
1340 


1350 
1369 


1370 
1330 


1390 
4400 


1410 
1420 


1430 
4440 


1456 
1460 
144796 
1480 
1470 
4500 
1510 
1520 
1530 
1540 
L5G 
1560 
1576 
15030 
L590 
1600 
1640 
1620 
1630 
1.640 


1650 
L660 
16770 
L6e0 
L690 
1706 
1740 


4720 


WE=FNWS @ IF NUM(WS)=8 THEN 4360 

DISP USING 140 ; ‘Major °,-V,’x + / 
,U,%y = 7 -UEX4+UKY 

WS=ENWS @ TF NUM(W%)=8 THEN 4320 


DISK USING 140 ; ‘Minor ’,U,’x + /, 
Vip = UKX+UKY 

WS=FNWS © IF NUM(WH)=8 THEN 4340 
DISP USING 140 ; ‘Dir ’,U,’x + ’,y, 


‘yo 7 UKX+UKY+044B@/C4 

WE=FNWS @ IF NUMCWH)=8 THEN 4360 

DISF USING 140 5 ‘Dir ’,U,‘’x # 7,y, 
‘yo = 4 UKX+UKY-A4%2/C4 

WS=FNWS @ IF NUM(W$)=8 THEN 42380 

DISP USING 140 , Asymp /, BAKUALRY 
,'K + 7 BAKV-ALRU, yp = 7, CRAKUFALKY 

yKX+ CBLRV—ALKU) KY 

WE=FNWS @ IF NUM(WS)=8 THEN 1400 

DISF USING 440 5 ‘Asymp /,BAxU-ALxY 
ok + / BARVEALKU, “y = 4, CBLKU-ADKY 

YX CERU EAL KL KY 

WE=FNWS @ IF NUMCWS)=8 THEN 4420 

GOTO 19°50 


eal 

IF A=0 THEN 1530 
G=PI/2 

IF B=0 THEN 4530 
GHATN(C-2kA/E) 

Lae 
M=DKCOS (GC) +EXSIN(G) 
N=~DKSIN(CG)+EKCOS (GC) 
IF ABS(M)< 00004 THEN 4800 
KL=-N/CERL) 

His ¢-F+lxK4*2)/ 
Ci=—bL/ (4M) 

IF C4>=0 THEN 4630 
Cis-C4 

G=G+PT 

| 


! 


DISF ‘“Parabola with eccentricity 4. 
° @ GOSUE 41990 


DISF ’“Center= (7% -FNDCHL¥COSCG)-K4xS 
TNCGI) 57,73 FNDCHIKSIN(G)+K4KCOS CG) ) 
et 

> 


WE=rNWt @ ITF NUMCWS)=8 THEN 46450 
DISP ‘’Angle=’ ;FND(GKLGGO/P 1) 

WS=PNWS @ IF NUMCWE)=8 THEN 46406 
DISF ‘Focus= ng sFNDCCHA4C4 9 XCOS(6)- 
KLXSINCG)>, : 

DISF FND(CHAFCL SING) 4K4KCOS CG) ) ; 
ye 

WE=FNWS € IF NUMCWH)=8 THEN 4480 


-“Directix Lines 


~“ASymptete Lines 


“The equation represents a 
parabola 


. 
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[___]PROGRAM LISTINGL____—_ 


4730 
4740 
4750 





1760 
47°70 


4730 
7990 
1306 
164.0 
16220 
130 


1840 
4,65 0 
LG60 
1670 
138 0 


S70 
45700 


A940 


é 





1740 
1950 


1760 
49°70 
1930 
1990 
“000 
2040 








+ ',COS(B),’y = 


DISF ‘Focal chord=’ ,FND(C4xCi4) 

WH=FNWS © IF NUMCWS)=8 THEN 41706 

DISF USING 140 ; “Sym ’,-SIN(G),/’x 

‘KA 

WE=FNWE @ TF NUMCWHED=8 THEN 4736 

DISP USING 4140 ; ‘Dir ’ ,COS¢G),’x + 
“;SINCG) 37% = * Hi C1 

WS=FNWS @ IF NUNCWHO=8 THEN 41750 

GUTO 19'0 

S=N“2-4XKL KF 

IF S>=0 THEN 4850 


DISP ‘No reéeal solution set.’ @ GOS 
BE 4990 

COTO 4950 

IF S30 THEN 48906 

i 


DISF USING 140 ; ‘Line: %’,-SIN(G),’ 
x + ’ COS(G),%y = % -N/CAKL) 

GOSUR £990 @ GOTO 1950 
DISP ‘Two parallel lines 
UR 1990 

DISP USING 440 =; 
x * % , COS(G),’%y = 
1.) 

W=FANWS © TF NUMCWEI=8 THEN 419700 
DISP USING 140 ; ‘’Lineée %,-SINCG), ’ 
x + % COSCG),%y = 7, CH-Ne SUR CSI) / C2 
L) 
WH=FNWE & 
INEUT “Run again?’ ,°Y7%; 
CBCQEDL 19) 

TF G4=°Y% THEN 450 

Dist 7 END GF PROGRAM’ 
STOP 

IF NUMCKEY $0443 THEN 2006 
RETURN 


~~ 


.7 & GOS 


“Lined %,-SINCG), ’ 
7, C-NF501K 059) 7 C2 


TF NUMCWHO=8 THEN 41940 
GS & QS=UPR 


“AXIS of Symmetry 


“No real solution 


“Straight line 


~“Two parallel lines 


“Wait for RIN key 
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PROGRAM DESCRIPTIONL 





v 


PARABOLIC EQUATIONS 


This program determines the equation of the parabola passing through three points 
entered by the user. If the equation cannot be determined by this program or the 
points do not represent a function, the program will so indicate. 


The program is designed to find equations of parabolas having a vertical axis, using 
the standard y=Ax2 + Bx + C. 
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——— SAMPLE PROBLEM 


Find an equation for the following parabolas represented by 
three points. 


1) -4,3 O54 4,3 
2) -6,-4 -3,-1 Q0,-4 


C—(Csi‘CSssSSSSSCSCSSCCOY SOLUTION 






fT easonc cquarzons | 

Pf second point aay = tate) 

a en ee 
ERR ee 













i hactsa. _aethees oneal 
Se Ce eT 
ales 
3 END OF PROGRAM ae 
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_ CC J USER INSTRUCTIONS|L 







” 

— 

rm 
2 







1... a 


INSTRUCTIONS DISPLAY INPUT 









a 
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= VARIABLE NAMES. 


DESCRIPTION | NAME DESCRIPTION 


Coefficient of x¢ in 
final equation 


|e eae of x in 
final equation 












Coordinates of points on 







parabola entered by 
Preliminary calculation 
for coefficients also 
used in determining 

validit 






user. 


| a | Preliminary calculations 
Pisbesr so for constant C 





of data 


— INOTES AND REFERENCES ___ 


a Reference: PARABOLIC EQUATION, HP-85 MATH Solution Book Series 80, 
| w Hewlett Packard, 1980. 


Note: Points on the parabola may be entered in any sequence. 
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CLUJ PROGRAM LISTINGL 





10 ! PARARO — Finds equation 
-0 ! of parabola passing 

30 ! through three points. 
4AQO !} Revision 14/04/82. 

SO! 


60 DIM OF14]7 
70 REAL A,R,FL,F2,F3,C,D 
80 SHORT X4,X2,X3,71,Y2,73 
SO DEF FNDCX) ~Function to round answers to 
three places 
100 IF X<0 THEN FND=-IP0-X*4 000+ .59/400 
0 ELSE FND=TIP CX*¥1000+.59/1000 
140 END DEF 


120 DISP ’ PARABOLIC EQUATIONS’ &@ 
WAIT 2 


130 ON ERROR GOTO 440 
140 INPUT ’First point x,y = “oR aG Y 4. 
150 INPUT “Second point x,y = ’;X2,¥2 
160 INPUT ’Thaird point x,y = XR, 3 
S70 D=EX2KKLA EE KAKK SSA KAKKE* 2-KGARKLY 2X ~Intermediate result ~- aise for 
IKK chm KKK * oe error trapping 
130 TF DG THEN 230 
4A°0 IF XitX2 GR X24XS THEN DISP ’Equati 
on cannot be determinad.’ ® COTO 24 
Q 
200 DISP “Nonfunection. XK =" ;X4 -~Digplay error messaqe 
2i0O ITF NUMCKEY$)443 THEN 216 
2eQ GOTO 360 





a50 OFF ERROR 
eA A= CY AKOXE XRAY AK OXS-XLD HV GKOXL XP) “Compute A coefficient 
»/D 


aoQO BE CY AKOXS* 2 X2* SIF VEKOXL AA KB 24713 ~Caompute ET coefficient 
KOX2* 2 KA *2I97D 
eo FisXKSRKXO* SE KEORX AAS ~F4, Fe, and F343 are 
tntermediate results for C 
270 Fe=KikKXS* 2-XSKKLMN 2 
230 Ft XAKKLA S-XL KK 2° 2 


a? Go rene KF + Y SKE SI/D ~Compute CC 
300 ! 
S10 ! QUTPUT EQUATION. 
Sed ! 
330 DISP USING 340 ; FNDCA) ,FNDCR) ,FNDS “Display results 
() 
S40 IMAGE ’y = %,K,’x*2 +7,K,%x +7 4K 
450 TF NUM CKEY$) #43 THEN S50 
360 ON ERRGR GOTO 370 
3/0 DISP CHR (210); ’un again, *%; CHRS(24 “Continuation aptians 


4);’1@ew again, or *% ,;CHRECI97) , 
S3Q INPUT ‘’nd?’,’R’%; Qh @ Q%=UPROSCOSTLA 





,41) 

390 ON POSC’RVE! ,Q69+4 GOTO 360,430,340 
, 400 

400 DISP ’ END GF PROGRAM’ @ WA 


IT 2 @ DISP 
44.0 OFF ERROR 
4200 STOP 
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— |PROGRAM DESCRIPTION | 
ww 


ROOTS OF POLYNOMIALS 


This program finds roots of polynomials using Barstow's method of iteration. 
The user provides the order (highest numbered exponent) of the polynomial 
and its coefficients in order from left to right. 


Example: For Ax® + Bx + C = ®, enter the order, 2, then the coefficients 
A, B, and C as prompted. If one or more of the coefficients is 
zero, as in Qxe - 16, enter 9, 0, -16 for the coefficients. 

The roots of some forms of polynomials cannot be determined by this program 


and it will indicate so if true. Execution time for polynomials of high 
order may be excessive since many iterations may be required. 


In cases where the program is not converging to a solution, the user will 
have the opportunity to end the computations for that polynomial or con- 
tinue for 25 iterations. 
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CU ISGAMPLE PROBLEM 


Determine the roots of the following polynomials: 


& 





1) Fe 
DY: “Noe OY 


pa SOLUTION 


TEP DISPLAY INPUT 
ee ee 
Order of polynomial? 2 [RTN] 
jewponent) 
Enter coefficients 1 [RIN] 
cvetticient = dca 
coercion os = fa 
CRT 

[complex for this potynomiat) fo 
cRTN 
1 oR 
2 [RIN 
0 (RIN 
Display roots [RIN] 

CRT 

ORT 


Y 
tr 


2 





rm 
S 
o 

| 

| 

| 


/ 





Ee 


295 


a USER INSTRUCTIONS. 


~ 


| es .. 
Fn a. eek as 
au ta 
anise vem |. ca 

| 
tte. ees ae od 

‘les agiamieseaiiee: Accu d 


oy 


~O 
— 
<— 


TN 
option to continue computations Continue for 25 iterations? Y Nor 
TN 
IN 


“I 
: 
<= 


If ‘Y' then continue computa- 


poeta set 
tions and goto step 3 | 
[if 'N' then goto steps | 
pisplay roots; | 
; 
zor (RTH 
[if 'R' then goto step | 


If 'E' then end END OF PROGRAM 
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Cd J VARTABLE NAMES ————==. 












| NAME | DESCRIPTION | NAME DESCRIPTION 
Order of polynomial P1,Q1 Used to test convergence 
Array for entering Internal looping, index 
A( ) coefficients 


Temporary storage and 
manipulation of 


coefficients 





for subscripts 


Adjust subscript 
Used to output solutions 
Number of sets of Temporary storage for 
25 iterations X,X1,F,F1 | subroutine, used to test 
0$ 


















: 
convergence in determining 
Cl Number of iterations roots for odd exponents 


_p.0__| sotutions [gg ser interaction 
Temporary storage | | 





yy 


___INOTES AND REFERENCESL_____ 


References: ROOTS OF POLYNOMIALS, HP-85 Numerical Analysis Solution Book, 
Hewlett Packard, 1980. 





This program accepts polynomials with a maximum order of 10. 


(Ax’? + Bx? + cx® + Dx? + Ex® + Fx? + Gx? 4 Hx? + Ix? + Ux + K = D) 
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_ ss Sd JPROGRAM LISTINGL 





0 


10 
a 0) 
30 
4() 
0 
50 
70 
30) 
9 0 
109 


14.0 
420 


130 
4.40 
1.50 
160 
1? 0 
130 


15 
200 
24.0 
220 
: 230 
| 240 
| 250 
250 


wit 





23 U 


a7 


506 
OA G 
32 U 
35 G 
340 
359 
{ 3OQ 

37 G 
| 330 
‘ BIG 
40 
1G 
4g 
430 
AG 
ASG 
4&0 
4'7 G 
430 
49 





| ROOTS - Finds roots of 

! polynomials. 

f Revision 44/04/82. 

! 

DIM AC4L41) , BOLL), XC414) 

REGL P,P4,0,Q4,F,F4,%,X4,7,T4,D 
INTEGER N,T,C4,7,D4 

DIM GHL4] 

DEF FND(X) 


TF X¢€G THEN X=ABS(X) ELSE 130 
A=IPCXAKLO0+.5)9/4100 @ FND=-xX @& GOTO 
4.4.0 

FND=IP (X*K1004.5)7100 

END DEF 
DISP ’ 
D,Q,P=0 
INPUT “Order of polynomial?’ ;N 

Tr N¢C=0 OR NOLO GR NAIPOCN) THEN DIS 
P “Invalid order’ @ GOTO 470 

FOUR I=4 TO N+4 

DISP ‘Coefficient #7;1,; 

INPUT ’=° ,A¢T) 

RCT EBACT) 

NEXT 7 

C4=0 

O4e 4 

IF Nt=2 THEN 870 

IF ACN+LI=0 THEN 950 


ROOTS OF POLYNOMTALS ” 


IF N/O-TPON/2)=0 THEN 340 


GOSUR 1406 


GOT 260 

TF ABS CACN $9944 EF -25 
PEACNI/ACN4) 
G=ACN+1)/7ACN-41) 

COTO 370 

P2ACN) 

WHA CH +4) 

FOR T=4 TO N+4 

ACP =ACT) 
NEXT I 
GOSUR 1040 
FOR T=. TG 
BCT=xCT) 
NEXT IT 

R=EX CM) 
SHACN+T D-PRACN) -QXXCN-4) 
GOSUE 1040 

ACN = PRX CN <1) GREK ON-2) 
D=X CN hom KOND KX ON 2) 

IF GBSCD OL E25 THEN S410 


THEN 350 


N~-4 


“Function to round to two 


tlecimal places 


coefficient is 0 
Lero 

number 
numbered 


~IfF rightmost 
then one root is 

“Test of No ois even 
“Find root for add 
exponent 
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_ Ld} PROGRAM LISTING 


>O0 DISP “Solution unobtainable.’ @ GOS 
UR 1440 @ COTO 98o 

DLO P4=P+ORKXON-49-SKXOCN-2))/D 

eG GL=Q+095*XX ON-4)-RKXCN)DI/D 

940 IF @RS(PI>O4.E-25 THEN S70 

"40 IF ARSCP4)>4.E-25 THEN S70 

SOO IF ARS(Q)>4.E-25 THEN 586 

960 GOTO 590 

70 IF ABSCPA/P-4)>.000004 THEN 599 ~Tests for convergence 

"OO TF ARSCQ1/Q-494.000004 THEN 4680 

590 P=P4. 

600 G04 

H10 Ci=Ci+4 ~[ncrement iteration counter 

620 TF Cl=D4ke5 THEN 646 

630 GOTO 379 

640 DISP ’No converqgence;’ ;Ci;’iteratio 
ns.’ @ GOSUEK 1440 

650 INPUT ‘Continue for 25 iterations?’ 
> ¥%3 AS & OF=UPROSCQ$l 4,417) 

660 IF Gt=’¥’ THEN Di=Di+d @ GOTO 370 

670 GOTO 980 

630 FOR T=? TO N-4 

HPO0 ACT IHERCT) 

700 NEXT I 

7410 N=N-2 

720 D=PXP-4xkQ 

7350 IF DCG THEN 820 

740 D=SQR CD) 

750 ! DISPLAY ROOTS. 

7oO T#(-P+D)/2 @ GOSUB 4350 “Display roots 

770 Te€-P-D)/2 @ GOSUB 4350 

70 C4heg 

770 DASA 

SO0 TF N-2@>0 THEN 276 

Sid GOT 8706 

S20 D=SQRC-D) 

830 Ts-FP/2 ® T4=D/2 @ GOSUB 4396 

B49 C420 

$50 D4t=4 

BOQ IF N-2>0 THEN 276 

S70 ITF N=. THEN 330 

Glad IF N=0 THEN 9&6 

SPO Pee) /8C4) 

SOQ G=kCS)/ERC4) 

Yi N= 

P20 GOTO 720 

740 T=-RC2)/BC4L) @ COSUR 1350 

Y40 GOTO 980 

S50 T=0 @ GOSUBR 4350 

Yo N= 4. 

S70 GOTO 260 

YoU! 

770 DISP CHREC210);’un again, or ’;CHRS “Continuation options 
Ae 7 


\ 














ee a a ee Ee eR I HH 


é 








1000 


1040 
1020 
4.030 
1.040 
1050 
4,066 
40°70 
4.080 
4.090 
1.4.06 
L440 


1420 
L430 
1440 
4.4.50 
44160 
L4i76 
£4.80 
1470 
4200 
Ltd 0 
L220 
4230 
4.240) 
£250 
£260 
L270 
1.2630 
4.29 0 
1400 
oe 
4.429 
4.3.36 
1.440 
1.5! G 
1460 
4.470 
4.4689 
L390 
4460 


1440 
1420 
4.440 
4.440 
14°50 
4,450 


INPUT ’nd?’,’R’%; Q& @ Q#=UPRCOS$CQST 4 
ij) 

? 

ON POSC(’RE’ ,Q$)+4 COTO 990,1460,41020 

DISP ” END OF PROGRAM’ 

STOP 

XC2)=XCPI-PRKX CA) 

FOR T=3 TON 

ACT) =XCLI PRX CT -4)-QXX CI-2) 

NEXT I 

RETURN 


IF R(2)=0 THEN 44140 


A=—-BCLI/SECH)D 
GOTO 4450 
X=—RONELI/SER CAD 
Em: () 

F 4a fj 

FOR T=4 TO 
JEN-T+2 

IF BCT =0 THEN 1230 

Pee CS OKX* CT -4) +F 

IF T4260 THEN 1230 

PREC T-LORE CTI KXA CT -24+F 4h 
NEXT I 

AL=EX-F ZF A 

Ik ABS CX/X4-49¢. 000004 
Kun kX 4 

GOTO 2450 

TeAi @ GOSUB 1350 
N=N~ 1 

FOR Ts2 TO N+4 

ACL asBC T+ KA KACT 4) 
ROT ACT) 

NEXT J 

RE TURN 

i 


N+ jf. 


THEN 1280 


DISP ‘Real root: ’;FND(T) 
COSUE 4440 

RETURN 

i 


DISP ‘Imag. root: °; @ DISP USING 4 
420 5; FNDCT) ,CHRS¢474),FNDCTA) 
GOSUER 4440 
IMAGE Kk,’ 
ES TURN 

! 

IF NUMCKEY$)$43 THEN 4450 
RETURN 


bg aan ae aly 
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_ LU J PROGRAM LISTINGL 


“Find root for odd numbered 


GAP oCHen F 


~Test for converqence 


“Oisplay single real root 


“Display complex root 


-Wakbt for return key 
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_  =JIPROGRAM DESCRIPTION ——4 


TRIANGLE SOLUTIONS 





This program finds dimensions for unknown sides and angles of a triangle and 

calculates the area of the triangle. The user may select either degree or 

radian mode. When using degree mode, angles must be entered in decimal for- 

mat (i.e., 98°12' is entered as 98.2). Results will also be in decimal for- ‘ 
mat. u 


The user must enter three parts of the triangle corresponding to one of the 
five common triangle solutions described below: 


EQUATIONS: (See Diagram A) 


P(P-S>) 


45583 (all sides known) A3 = 2 cos"? “Saga (Sa Sa Sa)/2 


_ -1 | P(P-S;) 
A, = COS~+(-COS(A3 + Az)) 





A1S,A3 (2 angles and enclosed side known) A. = COS~+(-COS(A3 + Aj)) 


= Sin A3 
Bo icin Ao 


53 


S$iC0S Ay. ‘SoCOS As 


SiA1A2 (side and following 2 angles known) A3 = COS~1(-COS(A, + A>)) 
Problem has been reduced to ASA configuration. 


SiA1S2 (2 sides and enclosed angle known) S3 =\| $1? + So% - 25155C0S Ay | 


Problem has been reduced to SSS configuration. 


uw 


Regu el 
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4 —_J|PROGRAM DESCRIPTION(L___ 


TRIANGLE SOLUTIONS (continued) 


S1S2A2 (2 sides and adjacent angle known)* A3 = SIN7+ |: SIN A 


Ay = cos-2 [-C0S(A2 + As) | 


Problem has been reduced to ASA configuration. 


* Note that two possible solutions exist if S» is greater than S, and A3 # 90°. 
Both possible answer sets are calculated. (See Diagram B). 


Diagram A 


93 


Diagram B 





Area =%2 $1 S358In A3 
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_ SC ISAMPLE PROBLEML . 





Solve the following triangles: 
1) Side 1 = 3 Side 2 = 4 Side 3 = 5 (use SSS) 
2) Angle 1 = 45° Side 1=10 Angle 3= 10° (use ASA) 


SOLUTION (Co 


ee 
rts 
1)SSS_ 2)ASA 3)SAA 4)SAS 5)SSA 1 [RTN] 
Use [BACK] to display the 4 [RIN] 
5 [ATW 
CRT 
[Angle 1= 90.00 | ERTW/CACK 


TEP INSTRUCTIONS DISPLAY INPUT 


D [RTN] 





~w 
GO | PO = 


[side 2= 4.00 —————_|ERTNI/LBACK. 
angle 2= 36.87 ——————_| ERTNJ/EBACK] 
side 3= 5.00 ———————_ERTNI/TBACK] 
Angle 3 = 53.13 __| ERTNI/[BACK] 
[Area = 6.00 | LRTNI/LBACK] 
Run again for problem #2 [RTN] 

D [RTH] 
ee ee ee 


Choose ASA 1)SSS_ 2)ASA 3)SAA 4)SAS 5)SSA] 2 LRTN] 


J 


do 
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Po SOLUTION 


é 









ver] _staucrions | musuay, | NT 
ai hae parameters 45 | RIN 
ice et rg 
Pp nce pe | to pr 
ro feesuts site a = a0.g0 ta 
peTH/ LACK) 















i ee 
Pte pe ete rent 
PT ngte 2 = 125.00 cern 
fe re fe crs 
Pf ance 3 = 30.00 perp 
Pp Ire = reap rm 
e [RTH] 








| > 


_ EUW JUSERINSTRUCTIONSL 


” 
— 
oO 


TRIANGLE SOLUTION 


Degree or Radian mode? 


INSTRUCTIONS DISPLAY INPUT 


Choose mode D or R [RTN] 


Choose triangle solution OPTIONS 
1,2,;3,4 or 
1)SSS_ 2)ASA 3)SAA 4)SAS 5)SSA 5 [RTN] 


ww 
NY 


fire asa) ttm sap sf SSS 
Fi 


SS-enter sides Sy [RIN] 
olve for missing angles S> [RIN] 
nd goto step 8 Ss [RTH 
ASA-enter two angles and Ai [RIN] 
nclosed side. Solve for Si [RT] 
issing angle and sides and A3 LRTN] 
AA-enter side and two S7 [RTN] 
ollowing angles. Solve for Ax [LRTN] 


3 


" 


issing angle and sides and Angle 2 = A> [RTN] 


woto_ step & 
AS-enter two sides and > 

nclosed angle. Solve for A, [RIN] 
missing side and angles and S2 [RIN] 


SSA-enter two sides Side 1 = S, [RIN] 


_ CRIN] 


& 











E 


J 








STEP INSTRUCTIONS DISPLAY INPUT 
| [and the adjacent angle. Solve 
ha ERT 
eT 


previous result Side 2= sss.ss ————_{LRTNI/E BACK] 
Angle 2 = aaa.aa [RTN]/[ BACK] 
Side 3 = sss.ss_—__[ERTND/LBACK] 


Use [BACK] to display the Angle 1 = aa.aa [RTN]/[BACK] 
angie 3 = aaa ERTN]/[BACK 


[Area = nnnnn ——__ERTNJ/EBACKY 
If more than one solution 


second answer set | 
, V5. 70F 
Program options Run again, View again, or End? R [RTN] 


if 'R! then step 1 as 


If 'V' then step 8 


If 'E' then End END OF PROGRAM 
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USER INSTRUCTIONS 
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ss CUd| VARIABLE NAMES.> 





& 






| NAME DESCRIPTION NAME DESCRIPTION 
Flags to indicate type of 
Psd triangle solution chosen H Area of triangle 
Lengths of sides 1,2, anc 
S1,82,S3 |3 of triangle M$ Degree or Radian mode 
Angles 1,2, anc mn Choice of triangle 
Al,A2,A3_ |decimal degrees) N$ solutions 













__INOTES AND REFERENCES 


References: TRIANGLE SOLUTIONS, HP-85 MATH PACK, Hewlett Packard, 1980. 


The accuracy of solutions may degenerate for triangles having extremely small angles. & 


o 


30 
? 0 
106 





‘ £40 
i 4.20 
4.30 


: 140 


450 
16G 


47 G 
4&0 
27-0 
200 


/ 2 B40 
SF 220 


230 


i 240 
| 250 
. 260 


a? 


263) 
25 () 
300 
340 
320 
330 
340 
450 
: 360 
37 
390 
396 
400 
440 

20 
AS 
AAG 
45 
ASQ 
ATO 


490 





| TREANG - Solves triangles 
lf in degree or radian mode. 


Revision 4£4/041/782. 
INTEGER F ,F4. 
DIM MLS) NGL 3 ,O%12] 
RIZAL AL, A2,AS,S1,52,53,P,H 
DEF FNQ 
Z2=NUMCKEY$S) @ TF Zti3 AND Z48 THEN 
100 
FNOS=CHR $¢Z9 
END DEF 
DISP ” TRIANGLE SOLUTION’ @ W 
ALT 2 
DISP CHR$(194);’egqree or /’;CHRE(240 
); 
QN ERROR GOTO 4140 
INPUT ’adian mode?’ ; Mt @ M$=UPRCS$¢ 
MBEL,44) 
OFF ERROR 
TF M$=’D*% THEN OPTION ANGLE DEGREES 
Ik M$=’R° THEN OPTION ANGLE RADTANS 
F 4=0 
DISF TARCLS);’OPTIONS’ ® WALT 4 
ON ERROR GOTH 230 
INPUT ‘4955S 29ASA BSAA 4)SAS $)SS 
A * NS 
N$=UPROBONED 4,47) 
OFF ERROR 
ON POS(’ 42345 ,N#)+4 GOTO 230,270,4 
00,500,570 ,650 
t So 
QN ERROR GOSUR 4400 @ GOTO 296 
INPUT ‘Side 4 = % ;54 
INPUT “Side 2 = ’;$2 
INPUT “Side 3 = %;,9% 
Pas: J 
P=(S544+S52+53)/2 
AS=2KACOS (SER CP KCP-S2)/(54%S3))) 
A= 2 KACOS (SOR CP KCP§S4)/7¢S2K53))) 
Ik F=4 THEN 3380 
GOSUR 8&0 
OFF ERROR © GOSUB 920 
GOTG S46 
PASSA. 
ON ERROR GOSUE 41400 @ GOTO 420 
INPUT “Angle £1 = ’;A4 
INPUT ‘Side 4 = %;S4 
INPUT “Angle 3 = 7% 543 
Ac=ACOS C-COSCAS+A4L)) 
De=SUKSTIN CAS) /SINCAZ) 
SS2SAKCOS 6 A3I4+S2RKCO0S (AZ) 
GFF ERROR @ GOSUER 920 
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_ Cd J PROGRAM LISTING([ 


“Wait for RTN or RACK key 


“Select deqree or radian mode 


“Select problem to solve 


“Side-side-side 


~Compute half the perimeter. 


~Angle-side-angle 


CLUJ PROGRAM LISTINGL 


490 GOTO 810 

200 ! SAA. ~Side-angle-angle 

240 ON ERROR GOSUR 14060 @ GOTO 520 

SeQ INPUT ‘Side 1 = ’,;514 

™30 INPUT “Angle 4 “3;AA4 

"4G INPUT “Angle 2 ’3;F2 

S50 AS=ACOS£-COSCAL+A4)d 

260 GOTO 469 

"70 1 SAS. ~“Side-angle-side 

S80 ON ERROR GOSUB 4400 @ GOTO 590 

O90 INPUT ‘Side 4 = ’;54 

SOG INPUT ‘Angle 1 = ”’;A4 

610 INPUT “Side 2@ = ’ 552 

620 SS=SOR(54%24+52%2-2RXS LT KSEKCOS CAL) ) 

630 F=4 

640 GOTO 330 

650 ! SSA. ~Gide-gide~-angle (can yield two 
results) 


eo 


tt {i 
ae 
oe 7 


660 ON ERROR GOSUB 414060 @ GOTO 676 
G70 INPUT “Side 4 = 7 ;$4 
630 INPUT “Side @ = %;,$2 
S70 INPUT ‘Angle 2 = %;A2 
700 AS=AGINOSE/SIXSINC AZ) ) 
7410 GOSUB &&G 
720 S3=StkCOS (AZ)+S2*C08 (AZ) & 
730 Fi=0 
740 OFF ERROR ® GOSUE 920 
YoG IF $2¢=S4 THEN 840 
760 Fit 
770 AS=ACOS(-COS CAB) ) 
730 GOSUB 860 
770 S3"SikXCOSCASI+52eC0S5 (42) 
S00 GCOSUR 920 
S40 DISP CHR$(¢210);’un again, ”’;CHRS(C2 “Continuation options 
4)3;’1ew again, or % ,CHREC197),; 
O20 INPUT ’nd?’,’R’%; Q& @ G&=UPRCO#(GGL4 
» 4) 
330 GN POS(’RVE’ ,@%)+4 GOTO 610,146,540 
» 850 
S40 IF Fizi THEN 700 ELSE GOSUR 920 @ G 
OTO Gid 
B50 DISP ’ END OF PROGRAM’ 
860 DISP 
8/0 STOP 
S3Q | “Find third angle qiven first 
two 
390 AL=ACOS C-COS CAS+AZ ? 
YOO FG 
94.0 RETURN 
PAG | GUTFUT. “Display results 
740 H=SikSSxXSINCASI/2 
Y4O0 DISP USING 950 3; “Side 4 =" ,S4 
YOO TRHAGE iG0a,dddd.dd 
V6 IF NUMCKEY$)443 THEN 9646 
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Sd | PROGRAM LISTINGL 


970 DISP USING 950 ; ’Angle 1 =’ ,AA 

980 Q$=FNQ% @ IF NUMCQ$)=8 THEN 940 

990 DISP USING 950 ; ’Side 2 =’ ,52 

14000 O¢=FNQ% @ IF NUMCQ#)=8 THEN 970 

4040 DISP USING 950 ; ’Angle 2@ =’ ,A2 

4020 O%=FNQh @ ITF NUMCQ$)=8 THEN 9990 

4030 DISP USING 950 ; ’Side 3 =’ ,53 

£040 QO&=FNQ$ @ IF NUM(CGd)=8 THEN 416010 

1050 DISP USING 950 ; “Angle 3 =%,AS 

4050 Q¢=FNG$S @ IF NUMCO$9=8 THEN 1040 

4070 DISP USING 950 ; ’Area =’,H 

4060 O$=FNQS @ IF NUM(CO$9=8 THEN 1050 

1090 RETURN 

4400 ! “Display error messaqe 

4440 DISP ‘Not a triangle. Re-enter dat 
a.’ 

1420 WAIT 2 

4430 RETURN 
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—_ JPROGRAM DESCRIPTION... 
e& 


POLYGON AREA 


This program finds the area enclosed in any polygon given the coordinates of its 
vertices. First the user must enter the number of vertices of the polygon, and 
then enter the X,Y coordinates of each of these vertices. The coordinates must 

be entered in sequential order, either clockwise or counterclockwise. The area is 
then displayed and the user has the opportunity to run the program again. 


Se 
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~JSAMPLE PROBLEML______ 


Find the area of the polygon having vertices at 






J 


2,3 4,4 652 4,0 byi= 3 0,-2 


CCC SOLUTION LLSSSSSSSSSSSSSSSSSM 









~* 


oe 0 ee 
Enter number of vertices 
Enter coordinates of vertices 
| lin sequentiat order 
os 
oe 
i 5 
Cia ee 
s. 



















vtput ran] 
Run again, View again, or End? R| E [RIN] 
ee a ee 


I> 
m 
= 

O 









| 
| 
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________=+siIUSERINSTRUCTIONSL » 


INSTRUCTIONS DISPLAY INPUT 


POLYGON AREA ae 
Enter number of vertices Number of points = n [LRTN] 


Enter vertices X,Y in X,Y #1 = X,Y, LRIN] 
XY 42 = X2.Y2 LRTN] 


XY én = 
Compute area and CG 
display result 
Program options Run again, View again, or End? R 
If '€* then end progran | ___eno oF procram =| 















ww 
asa] 
me) 


sequential order 


3 


OO 
ou 
















> 


Q — 





Cc 





: 
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Cd J VARTABLE NAMES epee ate ened 










DESCRIPTION 





erence 
initial point and 
successive points 











Used in computing 
triangle areas (adjusts 
polygon to X-Y grid) 





section of polygon 





DESCRIPTION 
umber of points to 
be entered 
Counts number of points 


Finds area of triangular 











| JINOTES AND REFERENCESL____ 


References: 


POLYGON AREA, HP-85 Math Solutions Book, Series 80, Hewlett Packard, 


1980. 
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_ Cd J PROGRAM LISTING. 


2350 
24 0} 


“tty J 
a & () 


eo? | 
23 
oP | 


309 


320 
340 
349 
350 
450 


370 
330 
390 


400 
440 


! POLYGN ~- Finds area 
! of a polygon. 
| 
! 


Revision 1414/01/82. 
1 
REAL €&4,04,D2,D3,D4,4a 
INTEGER Z41,Z 
DIM QE 4] 
DEF FND{X) = IP(XK1004+.5)/400 


DISP * POLYGON AREA’ © WAT 
9 

INPUT ‘Number of points = 
IF 243 THEN 440 


AL=0 


Ao? 
32 


| ENTER VERTICES OF POLYGON. 


! 

INPUT ’X,Y 4 
INPUT °X,Y 4 
DEX (2)-KO4) 
D2=¥(2)~¥ C4) 
Zi=3 

DISP ’X,Y 
»,Y(Z4) 
DB=X(ZLI-X C4) 
D4=¥(Z4)-YC4) 

A= (DEXD3-D4IxD4)/2 


ate SAV 5 
= 3X27, YC2) 


#’3;Z4; @ INPUT ¢ =°,xX¢74 


AL=A1+A 


D4I=DS 
Dea D4 
IF 242 
Z1.eZ4 44 
GOTG 220 


THEN 330 


1 OUTPUT AREA. 

j 

DISP ‘The area is ’ ;FNDCABRS(AL)) 

IF NUMCKEY$)443 THEN 360 

DISP CHRS<240);’un again, ’;CHRS(24 
4);/iew again, or ’;CHRS(497); 
INPUT ‘nd?’,/R’; GS @ QH=UPROSCQSL4 
,41) 

ON POS(/RVE’ G@694+4 GOTO 370,440,330 
, 400 
DISP ’ 
STOP 


END OF PROGRAM’ 


& 


round answers to 


places 


~Function to 
two decimal 


ey 


the area of triangular 
of polygon 


~Fainds 
Section 


“Sums triangle areas to find 
total area 


on WwW cs ‘t, t 
“Cantinuation 


for RIN key toe continue 
op tTLons 
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_ _JPROGRAM DESCRIPTION(L___ 


HYPERBOLIC FUNCTIONS 


b 


This program solves hyperbolic sine, cosine, tangent and their inverses. The 
user must choose the desire function by: 


S = hyperbolic sine AS = inverse hyperbolic sine 
C = hyperbolic cosine AC = inverse hyperbolic cosine 
T = hyperbolic tangent AT = inverse hyperbolic tangent 


and enter the parameter for the function. 


The program uses the following equations: 


x -X 
HYPERBOLIC FUNCTIONS — sinh(x) = etek 
X -X 
cosh(x) = ie ig Bed 
0 


tanh (x) = | - “| ee 


INVERSE HYPERBOLIC FUNCTIONS sinh (x) = Lax + (x#1)"] 


cosh” (x) = Ln{x + poh. x>1 





1+x 1 2 


ai - 
tanh “(x) = 4 Ln[-_-], x <1 
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_ ss CU ISAMPLE PROBLEM 9 





Determine these hyperbolic functions: 


1) SINH (3.5) 
2) ACOSH (45) 


po SOLUTION 












ave sonte runertons | 
SIHN(3.5) = 16.5426272877 
a ee 


ol 


a 
GO {Ro TR rm 
“™ 


Display result ACOSH(45) = 4.49968619067 
gun again, View again, or End? R| E RTH 
|e oF feed 


™ 
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— JIUSERINSTRUCTIONS|L____ 


INPUT 


ee HYPERBOLIC FUNCTIONS 
Function (A)SCT? 
s-sIW 
c-com 
- TANH 

enter parameter (H) t= 
On function 'S' goto step 3 

Jn Tur On A goto ap 6 
SINH(X) = n.annnnnnnnnn RTN] 
COSH(X) = n.nnnnnnnnnnn 
TANH(X) = n.nnannnannnnnn [RTN ] 
ASINH(X) = n.nannnnnnannnn 
ACOSH(X) = n.nannnnnnnnnn 





WY 
Cc? 
4 
wv 


AS, AC, or 


WY 
| 
— 
a 
—<— 
kes 


ow 

4 — 

mi 
= 

I 

cd 
© 
WY 
he 


AT [RTN] 


=> | jY Ja 


X_ {RIN 





] 
RO >) NO TNO NO 
C a mo 


> Ow KO ae) 
bh © 


~~ 
oe 


—- 
er 


7 
—{ 
<= 





[RTN ] 


50 


Md} PROGRAM LISTINGL 


506 
"540 
520 
530 
540 
50 
560 
570 
580 
5°0 


600 


640 


620 
630 


64 () 


GOSUB 4140 

IF X*@=4 THEN GOSUB 640 @ GOTO 580 
H=LOGCC4h+xX/C4-X))72 

Fig=” ATANH 7 

1 OUTPUT. 

DISP USING 5460 ; F4i¢,X,H 

IMAGE k,’C’ ,k,%)=7% ,K 

IF NUMCKEY$)443 THEN S70 

ON ERROR GOTO 590 

DISP CHR$¢2410)0;’un again, ’;CHRS(24 
4);’iew again, or % ,;CHRE(497); 
INPUT ‘nd?’ ,/R?%; Q& @ Q$=UPRCH(ASL4 
Se 

ON POS(’RVE’ ,@%)+4 GOTO 580,700,540, 
&20 

OFF ERROR 

DISP ’ END OF PROGRAM’ @ ST 
OP 

DISP “Invalid parameter.’ @ WAIT 2 
@ RETURN 


“Display results 
“Wait for RITN key 


“Continuation options 


“Display error messaqe 


® 
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-_JPROGRAM DESCRIPTIONL____ 


COMPLEX TRIGONOMETRIC FUNCTIONS 


6 





This program will compute the sine, cosine, and tangent of a complex number 
of the form X + Yi. The program will also compute the hyperbolic trigono- 
metric functions. The function is selected from the following table: 


S - sine HS - hyperbolic sine 
C - cosine HC - hyperbolic cosine 
T - tangent HT - hyperbolic tangent 


The formulae used are as follows: 


sin(z) = sin(x)cosh(y) + cos(x)sinh(y)1 
cos(z) = cos(x)cosh(y) - sin(x)sinh(y)i 
tania) = inne = steer 


sinh(z) = sinh(x)cos(y) + cosh{x)sin(y)i 
cosh(z) = cosh(x)cos(y) + sinh(x)sin(y)i 


Sinh(zx) + sin(zy)i 


tanh(z) = cosh(zx) + cos(zy) 











a 
f NR [FR 
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_ CU ISAMPLE PROBLEM( 


1) Compute the sine of 3-i 


2) Compute the hyperbolic cosine of -2 + 123 


aC SOLUTION Co 










fun progran complex trigonometric Functions | 
Pe Imaginary coefficient? 
Select sine function 
ise 

Lo Enter imaginary coefficient? 
route cosine | 
Display result 3.3747 + 1.98611 
| eno oF progeas | 


TEP 


OO 





O1 









mM] 
= 
Co 
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— USER INSTRUCTIONS.....__ 


 saiemeaietin be 


C9 


AI 
= 
=> 
5 
“> 
O 
5 


'S' - sine (goto 4 


ict = cosine (goto s) | 
T= tangent (goto) | 


C 
H 
H 


aa oe 
N 


hyperbolic 
- sine goto / 
hyperbolic 
'HC' - cosine goto 8 
hyperbolic 
tHT' _ tangent goto 9 
Sine - compute and display re- SINE 
Cosine - compute and display. COSINE 
Goto 10 n.nnnn + nn.nnnni [RTN ] 
Tangent - compute and display. TANGENT 
| Goto 10 [RIN] 
: 7 |Hyperbolic sine - compute and HYPERBOLIC SINE 
display. Goto 10 cen] 
Hyperbolic cosine - compute HYPERBOLIC COSINE 


or HT 


[RTN ] 


D3 
C, 
L 


RTN | 





; RIN 
an 
E or [RTH] 
cn OF ROGAN 





— 
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_ Cd | VARIABLE NAMESL 






a 









| NAME DESCRIPTION | NAME DESCRIPTION 
Denominator for 
A Real part of result E hyperbolic tangent 
i Imaginary part of result Real part of argument 
fae Denominator for tangent Imaginary part of argument 
Choice of function 





End of program options 





_____INOTES AND REFERENCES 


References: COMPLEX TRIGONOMETRIC FUNCTIONS, HP-85 Math, Series 80, 
Hewlett Packard, 1981. 


wv 


Abramowitz, M. and Stegun, J. A., HANDBOOK OF MATHEMATICAL 
FUNCTIONS, National Bureau of Standards, 1965, p. 74, 84. 
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Sr SECUdJ PROGRAM LISTINGL 





0 


! COMPLEX - Trigonometric 
20 ! functions of a 
! complex argument. 


50 | Revision 14/01/82. 

60 DELAY 4. 

70 DIM M$l 4] ,F¢0431 ,Q613) 

80 REAL A,BR,X,Y,D,E 

90 DEF FNS(W) = CEXPCW)-EXPC-W))72 “Hyperbolic sine used to 

compute other functions. 

400 DEF FNCCW) = CEXPCW)tEXPC-W0/2 -Hyperbolic cosine used to 
: compute other functions 

440 DEF FNDCW) 

£20 IF WK0 THEN FND=-TPC-Wki0G000+ 59/40 

G00 ELSE FND=IPCWKLi0000+ .5)/10000 
430 END DEF 
440 DISP ’ Complex Triqonometric Functi 


Ons’ 
450 OPTION ANGLE RADTANS 
1660 ON ERROR GOTO 4176 ~Data may be entered in degree 
or radian mode 
170 INPUT “’Enter real coefficient?’ ,X “Enter complex number 


460 ON ERROR GOTO 190 

AVG INPUT ‘Enter imaginary coefficient? 
fe 

? 

200 ON ERROR GOTGQ 240 

LO INPUT “Function CHOISCT: 7; FA @ FE=U ~Select function 
PROGCF S$) 

ecQ TF LENCR$)=4 THEN Fos’ “’&FS ELSE FS 
=F OE4,21] 

230 ON POS¢’ S © THSHCHT’ ,F4)4+4 GOTG 24 
0,240 ,210,290,219 ,640,210,400,210,4 
50,2410 ,500,2410 

240 ! SINe. 

250 DISP TARCL4) ; “SINE” 

260 A=SINCX)KFNC CY) 

2/70 BECOSCK)KFNS CY) 

«80 GOTO 556 

e270 ! COSINE. 

$00 DISP TABCLS3) ; ’COSINE’ 

S40 A=COS CK KFNC CY) 

be Be-SINCX) KFNS CY) 

$40 GOTO S56 

440 ! TANGENT. 

450 DISP TAR 42); 7 TANGENT’ 





4 $60 D=COSCAKKD+FNG CeKY) ~Derominatior for computing 
: hyperbolic tangent 


370 A=SINCEKX) /D 

SOQ BEFNS CARY) /D 

390 GOTO S50 

400 ! HYPERBOLIC SINE. 

440 DISP TARCG); “HYPERBOLIC SINE’ 
420 A=FNSCXIKCOS CY) 

430 HEFNCOCKOKSINGY) 
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_ Cd J PROGRAM LISTING ===. 


440 GOTO 550 

40 ! HYPERBOLIC COSINE. 

450 DISP TARC?7);’HYPERKBOLIC COSINE’ 

470 A=FNCCX)XCOSCY) 

430 B=FNSCX)*XSINCY) 

4970 GOTO 550 

[OO ! HYPERBOLIC TANGENT. 

2410 DISP TARC?);’HYPERKOLIC TANGENT’ 

220 E=FNCC2X)4+C0OS CAXY) 

230 A=FNS (2KX)/E 

S40 BR=SINC2KY) /E 

250 DISP USING 560 ; FND(A),FND(R) “Display result 

2O0 IMAGE Kj,’ + %,K,%a? 

270 ITF NUMCKEY$)#43 THEN 570 

280 ON ERROR GOTO S990 

270 DISP CHR$(240);’un again, or *;CHRS “Continuation options 
C197) ; 

600 INPUT ‘nd?’ ,’R’; Q& @ AS=UPROS( QSL 4 
»44) 

S10 ON FOS(’RE’ 4944 GOTO 590,450,620 

&20 OFF ERRGR 

630 DISP TAB(9);’END OF PROGRAM’ 

640 STOP 
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___—sJI PROGRAM DESCRIPTION. 


PRIME FACTORIZATION 


0 





This program tries as factors for the number N all numbers in the set: 
[2, 3, 5, P where P = 1, 7, 11, 13, 17, 19, 23, 29 mod 30 and Pssar(n) ] 


up to the square root of N. If a factor P is found, P’ is factored out of 
N and N=N/P™ proceeding from P through the set of remaining test factors 
until a test factor exceeds SQR(N). 
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_ Cd ISAMPLE PROBLEM <==. 


Factor the numbers 37559, 3212453, and 976142. 


SOLUTION Lo 


INSTRUCTIONS DISPLAY INPUT 


Enter number to be factored 37559 [RIN] 
View factors 
cer] 
ren 
Run agair an | ® 
Enter number to be factored 
View factors 
(Nunber is. prine) cen 


° ® 


Run again Run again, View again, or End?R | [RTN] 


TEP 


Go 


wa 
m™ [ Fk 


on 


ee 
INO 
— 
NO 
[> 
nn 
ww 
1 
~ 
— 
ao 
Lt 


~~ 


Enter number to be factored Enter N? C 


jew factors No. Factor Power 
1 


Z 1 


5 
a 
WwW 
oY 
— 
fs 
NO 

a 
~ 
— 
— 

Lo 


<— 


7 
fy 
— 


3 


— 
Ww 
vO 
+ 
<— 


GW {ho 
t= 
O 

— tre [ea 
AJ 
— 
= 


4 853 RIN 


nd program. Run again, View again, or End?R | E [RIN 
END OF PROGRAM 


0 


is 
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— USER INSTRUCTIONS. 


Run progran | ** prime racrorrzarzon ** | 

Enter number to be factored 

View factors [No. Factor Power | 
it 










oO 





[RTN] will advance factors, /# factor power _| RTA or BACK | 


factor. 


a! 
a 
Continuation options ee ee 
URW] wii rectum program, [0 ere 

V [RIN] will re-view factors BP ret 
ERM] witt end program | de ny 
sewn oF progeny | 


BACK] WATT show previous | 


oO 





Cc 
on wn ow — 
Oo gy on WwW No rm 
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_ _-—LCUd J VARIABLE NAMES ——¢ 








wae [nes caron——[ naar 








Number to be factored Square root of N 
Index for display loop Control! for options 


_____—sINOTES AND REFERENCES(L 


Notes: Numbers in excess of 1014 


may not factor correctly. 

Number with more than 10 distinct factors will overflow the e 
factor array. To change this, modify the dimension statement 

in line 60. Note that the smallest number with 11 factors is 
200560490130. This program factors the positive integral part 

of N. 


Reference: Knuth, Donald E., SEMINUMERICAL ALGORITHMS, Addison-Wesley, 
1980, Section 4.5.4. 






0 





0 





10 


“y 
bees 


30 
4() 
© 0 
60) 
79 
830 
70 


100 
146 


120 


pus 
ini 
oO 


140 


160 
4.70 
130 
190 
m0 0 


id 


wed 
5G 
24 () 
2'5 
260 
a? 


20) 
m2?) 


509 
34.0 


S20 
OQ 
S40 
350 
360 





! Factor ~- Determines the 
l prime factorization of a 
1! number. 


| Revision 44/04/82 

DIM K(C40),PC40) 

DELAY 4 

DEF FNA 

A=NUMCKEY$) @ ITF ARS AND ATtLS THEN 
9() 
FNA=A &@ 
DISP ’ 
x / 
INPUT ’Enter N?’;N 
N=ARSCINT ON) ) 


END DEF 
x X PRIME FACTORIZATION x 


IF N=0 OR N=4 THEN BEEP @ DISP ’Can 
not factor’;N @ GOTO 4120 


F=0 


THEN GOSUE 
THEN GOSUE 
THEN GOSUE 


a? Q 
27g 
FQ 


K=2 @ ITF MODCN ,KD=0 
K=3 @ TF MODCN, K)=0 
K= @ TF MODCN,K)=0 
S=SQR CN) 
K=K-+e2 @ TF KOS THEN 330 

THEN GOSUB 2970 

THEN GOSUB ¢ 


TF MODCN,KD=0 
K=K+4 @ TF MODCN,K)=9 
(} 

K=K+e @ TF 
() 

K=K+4 @ TF 
Q 

K=k+2 @ TF 
0 

K=Kk+4 @ Th 
0 

K=K+t @ 
0 
COTO 
U=4 


MODON,KO=0 THEN GOSUEB 2@Y 


MODOCN,KQ=0 THEN GOSUB 2 


MODON,KO=0 THEN GOSUEK 29 


MODCN,KO=0 THEN GOSUB 29 


TR MODCN,KO=0 THEN GOSUR 2 


200 


N=N/K @ TF MODCN,K)=0 THEN U=U+4 @ 
GOTO S00 ELSE 4410 
FePtt @ KCF ORK @ PCF )O=U @ S=SQR CN) 


RE TURIN 

IF NO4 THIEN F=F+4 @ KCFD=N 
DISP ‘No. Factor 

FOR T=4 TO F 

DISP USING ’2d,x,42@d,5x*%,3d’ ; 
>,PCT) 

A=FNA @ IF A=8 THEN T=MAX(CI-4,4) @ 
GOTG 360 


@ PCF def, 
Power ’ 


Tok 


Tas t 
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_ Cd J PROGRAM LISTING. 


“Function returns 8 for BACK 
key or 414 for RTN key 


“Trap numbers that cannot be 


factored 


“Initaalize counter for number 
of factors 
First 


three factors 


Factors ta 
SOR CMD 


“Kudid 
Ter, 


GUCCI SEaLve 


Stop if > 


~“Tnitzdalize counter for factor 
power 

“Remove all possible factors K 
array with 
Revise S$, 


“Update factor 
factor, power. 


“Display results 
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_ Cd J PROGRAM LISTING or. 


380 
570 


40) 0 


44.0 


429 


NEXT I 

DISP CHR#(C210);’un again, * ; CHR (24 
4);’iew again, or % ;CHRS$C197) ; 
INPUT ‘nd?’ ,/R’%; QS © Gh=UPROS( QSL 4 
aD 

ON POS(’RVE?’ ,@4)+1 GOTG 390,426,340 
»420 


DISP / END OF PROGRAM’ @ 3 


TOP 


“Continvation 


Options 





MATH | 


SIMULTANEOUS LINEAR EQUATIONS 
QUADRATIC EQUATION 

PARABOLIC EQUATIONS 

ROOTS OF POLYNOMIALS 

TRIANGLE SOLUTIONS 

POLYGON AREA 

HYPERBOLIC FUNCTIONS 

COMPLEX TRIGONOMETRIC FUNCTIONS 
PRIME FACTORIZATION 


ALL HP-75 SOLUTIONS BOOKS ARE AVAILABLE RECORDED ON MINI-DATA CASSETTES 
FROM EITHER A HEWLETT-PACKARD DEALER OR THE HP USERS’ LIBRARY. 


G HEWLETT 


PACKARD 


00075-90061 Printed in U.S.A. 


Reorder No. 
00075-13003 





